This snippet will disable the control + alt + delete function.

Declarations:

Private Declare Function SystemParametersInfo Lib "user32"
Alias "SystemParametersInfoA" _
   (ByVal uAction As Long, ByVal uParam As Long, lpvParam As
Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97



Code:

Private Sub Form_Unload(Cancel As Integer)

   ' when this app closes, make sure CTRL+ALT+DELETE is
re-enabled
   Call Command2_Click

End Sub

Private Sub cmdDisableCTRLALTDEL_Click()

   Dim Ret  As Long
   Dim pOld As Boolean
   Ret =
SystemParametersInfo(SPI_SCREENSAVERRUNNING,
True, pOld, 0)

End Sub

Private Sub cmdEnableCTRLALTDEL_Click()

   Dim Ret  As Long
   Dim pOld As Boolean
   Ret =
SystemParametersInfo(SPI_SCREENSAVERRUNNING,
False, pOld, 0)

End Sub